home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0386.arc / CROSSTH5.LTG < prev    next >
Text File  |  1986-03-03  |  896b  |  36 lines
  1.  
  2.  
  3.                            Listing 5. 
  4.           Example of dynamic open arrays in Pascal MT+
  5.  
  6. Program Average;
  7.  
  8. VAR
  9.   Vector1 : ARRAY [1..10] OF REAL;
  10.   Vector2 : ARRAY [10.100] OF REAL;
  11.  
  12. PROCEDURE FillVector(VAR A : ARRAY [LOW..HI : INTEGER] OF REAL);
  13.  
  14. VAR I : INTEGER;
  15.     
  16. BEGIN
  17.    FOR I := LOW TO HI DO
  18.       A[I] := I;
  19. END; (* FillVector *)
  20.  
  21. PROCEDURE  GetMean(VAR A : ARRAY [LOW..HI : INTEGER] OF REAL; 
  22.                    VAR Mean : REAL);
  23.  
  24. VAR I : INTEGER;
  25.  
  26. BEGIN
  27.    Mean := 0; (* Initialize result *)
  28.    FOR I := LOW TO HI DO
  29.       Mean := Mean + A[I];
  30.    Mean := Mean / (HI - LOW + 1);
  31. END; (* GetMean *) 
  32. èBEGIN
  33.    FillVector(Vector1); GetMean(Vector1); WRITELN('Mean 1 = ',Mean);     
  34.    FillVector(Vector2); GetMean(Vector2); WRITELN('Mean 2 = ',Mean);
  35. END.
  36.